From 89d4ab725b2b91c31adacdadeaff31bf057b31bd Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 2 May 2011 01:19:21 +0000 Subject: [PATCH] pop3.el (pop3-open-server): Error messages are "-ERR". --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/pop3.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d9f33948342..d2cf8c6a7ac 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-05-02 Lars Magne Ingebrigtsen + + * pop3.el (pop3-open-server): Error messages are "-ERR". + 2011-05-01 Lars Magne Ingebrigtsen * pop3.el (pop3-open-server): Upgrade opportunistically to STARTTLS. diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index 3ca5cab76e1..96b2ae17a5a 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -306,7 +306,7 @@ Returns the process associated with the connection." (t (or pop3-stream-type 'network))) :capability-command "CAPA\r\n" - :end-of-command "^\\.\r?\n\\|^\\+[A-Z]+ .*\n" + :end-of-command "^\\.\r?\n\\|^\\(-ERR\\|+OK \\).*\n" :success "^\\+OK.*\n" :return-list t :starttls-function -- 2.30.2